From: Lars Ingebrigtsen Date: Sun, 30 Jan 2011 03:00:34 +0000 (+0000) Subject: nnmail.el (nnmail-article-group): A better test for fanciness. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5015 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f56177da0d86173549a815f23bb966d40d09da54;p=emacs.git nnmail.el (nnmail-article-group): A better test for fanciness. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 71a93561947..8de2b8860c1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,7 @@ * nnmail.el (nnmail-article-group): Check for a direct fancy split method. + (nnmail-article-group): A better test for fanciness. * nnimap.el (nnimap-request-head): Protect against not finding the article by Message-ID. diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index a41a5d73344..b2336e13b64 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1148,8 +1148,7 @@ FUNC will be called with the group name to determine the article number." (setq nnmail-split-trace nil)) (if (or (and (symbolp nnmail-split-methods) (fboundp nnmail-split-methods)) - (memq (car-safe nnmail-split-methods) - '(| &)) + (not (consp (car-safe nnmail-split-methods))) (and (listp nnmail-split-methods) ;; Not a regular split method, so it has to be a ;; fancy one.